Mark procedure

  DECLARATION:  Mark(Var p : Pointer)

      PURPOSE:  Records the state of the heap in a pointer variable

         UNIT:  System

      REMARKS:  p is a pointer variable of any type.  The current value of
                the heap pointer is recorded into p.  This value is normally
                used as an argument with Release.